define addr 
proc(n)
  if n then return := n + addr(n-1) else return := 0 fi
end;
define main 
proc(n)
  t:=5;
  s:=addr(t)
end